home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / receipt / grid2dlg.frm < prev    next >
Text File  |  1993-07-21  |  6KB  |  206 lines
  1. VERSION 2.00
  2. Begin Form Form8 
  3.    Caption         =   "Form8"
  4.    ClientHeight    =   2775
  5.    ClientLeft      =   1785
  6.    ClientTop       =   1650
  7.    ClientWidth     =   4935
  8.    Height          =   3180
  9.    Left            =   1725
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form8"
  12.    ScaleHeight     =   185
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   329
  15.    Top             =   1305
  16.    Width           =   5055
  17.    Begin CommandButton Command2 
  18.       Caption         =   "Cancel"
  19.       Height          =   375
  20.       Left            =   2160
  21.       TabIndex        =   7
  22.       Top             =   2160
  23.       Width           =   1455
  24.    End
  25.    Begin CommandButton Command1 
  26.       Caption         =   "OK"
  27.       Height          =   375
  28.       Left            =   480
  29.       TabIndex        =   6
  30.       Top             =   2160
  31.       Width           =   1455
  32.    End
  33.    Begin VBedit BEdit3 
  34.       CellHeight      =   32
  35.       CellWidth       =   22
  36.       CharSet         =   16420
  37.       CombBaseLine    =   26
  38.       CombEndHeight   =   8
  39.       CombEndMarker   =   0   'False
  40.       CombHeight      =   4
  41.       FontBold        =   0   'False
  42.       FontItalic      =   0   'False
  43.       FontName        =   "Arial"
  44.       FontSize        =   18
  45.       FontStrikethru  =   0   'False
  46.       FontUnderline   =   0   'False
  47.       Height          =   495
  48.       InflateBottom   =   12
  49.       InflateLeft     =   12
  50.       InflateRight    =   12
  51.       InflateTop      =   16
  52.       Left            =   1920
  53.       TabIndex        =   5
  54.       Text            =   "    ."
  55.       Top             =   1320
  56.       Version         =   268435458
  57.       Width           =   2355
  58.    End
  59.    Begin VBedit BEdit2 
  60.       CellHeight      =   32
  61.       CellWidth       =   22
  62.       CharSet         =   16420
  63.       CombBaseLine    =   26
  64.       CombEndHeight   =   8
  65.       CombEndMarker   =   0   'False
  66.       CombHeight      =   4
  67.       FontBold        =   0   'False
  68.       FontItalic      =   0   'False
  69.       FontName        =   "Arial"
  70.       FontSize        =   18
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       Height          =   495
  74.       InflateBottom   =   12
  75.       InflateLeft     =   12
  76.       InflateRight    =   12
  77.       InflateTop      =   16
  78.       Left            =   1920
  79.       TabIndex        =   4
  80.       Text            =   "    ."
  81.       Top             =   720
  82.       Version         =   268435458
  83.       Width           =   2355
  84.    End
  85.    Begin VBedit BEdit1 
  86.       CellHeight      =   32
  87.       CellWidth       =   22
  88.       CharSet         =   16404
  89.       CombBaseLine    =   26
  90.       CombEndHeight   =   8
  91.       CombEndMarker   =   0   'False
  92.       CombHeight      =   4
  93.       FontBold        =   0   'False
  94.       FontItalic      =   0   'False
  95.       FontName        =   "Arial"
  96.       FontSize        =   18
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   495
  100.       InflateBottom   =   12
  101.       InflateLeft     =   12
  102.       InflateRight    =   12
  103.       InflateTop      =   16
  104.       Left            =   1920
  105.       TabIndex        =   3
  106.       Top             =   120
  107.       Version         =   268435458
  108.       Width           =   855
  109.    End
  110.    Begin Label Label3 
  111.       Caption         =   "Deposit:"
  112.       Height          =   255
  113.       Left            =   240
  114.       TabIndex        =   2
  115.       Top             =   1440
  116.       Width           =   735
  117.    End
  118.    Begin Label Label6 
  119.       Caption         =   "$"
  120.       FontBold        =   0   'False
  121.       FontItalic      =   0   'False
  122.       FontName        =   "Arial"
  123.       FontSize        =   18
  124.       FontStrikethru  =   0   'False
  125.       FontUnderline   =   0   'False
  126.       Height          =   375
  127.       Left            =   1590
  128.       TabIndex        =   10
  129.       Top             =   1395
  130.       Width           =   255
  131.    End
  132.    Begin Label Label2 
  133.       Caption         =   "Freight/UPS:"
  134.       Height          =   255
  135.       Left            =   240
  136.       TabIndex        =   1
  137.       Top             =   840
  138.       Width           =   1215
  139.    End
  140.    Begin Label Label5 
  141.       Caption         =   "$"
  142.       FontBold        =   0   'False
  143.       FontItalic      =   0   'False
  144.       FontName        =   "Arial"
  145.       FontSize        =   18
  146.       FontStrikethru  =   0   'False
  147.       FontUnderline   =   0   'False
  148.       Height          =   375
  149.       Left            =   1590
  150.       TabIndex        =   9
  151.       Top             =   795
  152.       Width           =   255
  153.    End
  154.    Begin Label Label4 
  155.       Caption         =   "%"
  156.       FontBold        =   -1  'True
  157.       FontItalic      =   0   'False
  158.       FontName        =   "Arial"
  159.       FontSize        =   12
  160.       FontStrikethru  =   0   'False
  161.       FontUnderline   =   0   'False
  162.       Height          =   255
  163.       Left            =   2880
  164.       TabIndex        =   8
  165.       Top             =   240
  166.       Width           =   255
  167.    End
  168.    Begin Label Label1 
  169.       Caption         =   "Sales Tax:"
  170.       Height          =   255
  171.       Left            =   240
  172.       TabIndex        =   0
  173.       Top             =   240
  174.       Width           =   975
  175.    End
  176. End
  177.  
  178. Sub Command1_Click ()
  179.    SalesTax = Val(BEdit1.Text) / 100
  180.    Form2.Grid2.Col = 1
  181.    Form2.Grid2.Row = 2
  182.    Form2.Grid2.Text = BEdit2.Text
  183.    Form2.Grid2.Row = 4
  184.    Form2.Grid2.Text = BEdit3.Text
  185.    CalcTotals
  186.    Unload Form8
  187. End Sub
  188.  
  189. Sub Command2_Click ()
  190.    Unload Form8
  191. End Sub
  192.  
  193. Sub Form_Load ()
  194.    Form8.Top = (Screen.Height - Form8.Height) / 2
  195.    Form8.Left = (Screen.Width - Form8.Width) / 2
  196.    
  197.    BEdit1.Text = Format$((Int(SalesTax * 100)), "00")
  198.    Form2.Grid2.Col = 1
  199.    Form2.Grid2.Row = 2
  200.    BEdit2.Text = Format$(Val(Form2.Grid2.Text), "###0.00")
  201.    Form2.Grid2.Row = 4
  202.    BEdit3.Text = Format$(Val(Form2.Grid2.Text), "###0.00")
  203.  
  204. End Sub
  205.  
  206.